COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(PROG2 (GETSYM SUBR 
C00004 ENDMK
C⊗;
(PROG2 (GETSYM SUBR 

	NFACE  PFACE  NED  PED  NVT  PVT
	NFACE$ PFACE$ NED$ PED$ NVT$ PVT$ 

	DAD  SON  BRO  SIS  ALT  ALT2  TRAM  CW  CCW  NLINK  PLINK
	DAD$ SON$ BRO$ SIS$ ALT$ ALT2$ TRAM$ CW$ CCW$ NLINK$ PLINK$

	NCW  PCW  NCCW  PCCW
	NCW$ PCW$ NCCW$ PCCW$

	XWC YWC ZWC  IX IY IZ  JX JY JZ  KX KY KZ  AA BB CC  XPP YPP ZPP

	GEOMED MKUNIV MKNODE KLNODE
	MKWORLD MKCAMERA MKWINDOW 
	OUTB3D OUTGEM OUTCAM
	INB3D  INGEM  INCAM INGEO INCRE
	SETFOC

	MKB MKF MKE MKV MKTRAM
	WING INVERT EVERT
	ECW ECCW OTHER VCW VCCW FCW FCCW
	BDET BATT BGET

	MKBFV MKEV ESPLIT MKFE GLUEE
	KLBFEV KLFE KLEV UNGLUE
	GLUE MKCOPY SWEEP ROTCOM PYRAMID FVDUAL
	MKCUBE MKCYLN MKBALL

	PI SQRT LOG SIN COS ATAN ATAN2 ASIN ACOS
	DPYBUF DPYSST DPYSET DPYBIG DPYBRT AVECT AIVECT RVECT RIVECT DPYOUT

	TRANSL ROTATE SHRINK NORM
	MKTRMA MKTRMF MKTRMV MKROTV
	ORTHO1 ORTHO2 DETERM ANGL3V 
	DISTAN APTRAM INTRAM

	GEODPY IIIDPY SHOW1 SHOW2 SHOW3 SHOW4 TAKE1 TAKE2 OCCULT SHADOW
	VPROJ UNPROJ FACOEF ECOEF
	CLIPER

	BIN BUN BSUB MKCVEX MKBUCK ECUT FCUT BCUT)T

	(DEPOSIT (CAR (GETSYM ADDR GEM)) -1)
	(DEPOSIT (CAR (GETSYM ADDR $FLONUM))
	(ADD1(DEPOSIT (CAR (GETSYM ADDR $FIXNUM))
	(ADD1(MAKNUM(GET @MAKNUM @SUBR))) )))		)